home *** CD-ROM | disk | FTP | other *** search
/ French Postcards Plus / 350a_French_Postcards.dsk / SIXTY-NINE SCENE.bas < prev    next >
BASIC Source File  |  2020-07-23  |  1KB  |  34 lines
  1. 1 D$ =  CHR$(4)
  2. 10  PRINT D$;"BLOAD HIRES SCRUNCH"
  3. 30  TEXT : HOME 
  4. 35  VTAB 8
  5. 40  PRINT "ONE DAY WHILE SHOPPING FOR A NEW VACUUM CLEANER YOU MET THIS KNOCK-OUT OF A GAL WHO WAS THE SALES CLERK. WHEN SHE SHOWEDYOU THE PRICE YOU ALMOST FLIPPED ! !    YOUR MIND DRIFTED......."
  6. 45  FOR G1 = 1 TO 5000: NEXT G1
  7. 50  PRINT D$;"BLOAD PIC.691,A$7000": GOSUB 1000
  8. 190  HOME 
  9. 200 A = 1
  10. 390  POKE  -16297,0
  11. 400  POKE  -16304,0
  12. 410  POKE  -16302,0
  13. 411  PRINT D$;"BLOAD PIC.692,A$7000": GOSUB 1000
  14. 412  PRINT D$;"BLOAD PIC.693,A$7000"
  15. 413  GOSUB 1010
  16. 430  GOSUB 590
  17. 450  POKE  -16299,0
  18. 460  GOSUB 650
  19. 480  POKE  -16300,0
  20. 490  GOTO 430
  21. 590  REM 
  22. 650  FOR I = 1 TO 50  STEP A
  23. 660 TN = 200 -2 *A -I
  24. 670  POKE 768,TN: POKE 769,10
  25. 680  CALL 770
  26. 690  NEXT 
  27. 700 A = A +1
  28. 705  IF A >99  THEN 800
  29. 710  RETURN 
  30. 800  SPEED= 255: HOME : PRINT D$;"RUN MENU"
  31. 1000  POKE 24582,0: POKE 24583,32: POKE 24584,255: POKE 24585,63: POKE 24587,112: CALL 24579
  32. 1001  RETURN 
  33. 1010  POKE 24582,0: POKE 24583,64: POKE 24584,255: POKE 24585,95: POKE 24587,112: CALL 24579
  34. 1011  RETURN